home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 June
/
EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso
/
earcd
/
utilmus
/
prtrk352.lha
/
ProTracker
/
Source
/
makehelp.asm
next >
Wrap
Assembly Source File
|
1996-05-02
|
525b
|
33 lines
; Use this to make helpfile offsets
; load file at $40000, run and save from
; $40000-1024 to $40000+filelength
main LEA $40000,A0
mloop CMP.B #94,(A0)+
BEQ nose
CMP.L #$50000,A0 ;change if helpfile longer!
BNE mloop
RTS
nose MOVE.L A0,A1
SUB.L #$40001,A1
MOVEQ #0,D0
MOVE.B (A0)+,D0
SUB.B #'0',D0
CMP.B #9,D0
BLS nose2
SUBQ.B #7,D0
nose2 LSL.B #4,D0
MOVE.B (A0)+,D1
SUB.B #'0',D1
CMP.B #9,D1
BLS nose3
SUBQ.B #7,D1
nose3 OR.B D1,D0
LSL.W #2,D0
LEA $40000-1024,A2
ADD.L D0,A2
MOVE.L A1,(A2)
BRA mloop